home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / PCAT9604.ZIP / GO.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-05-30  |  5.7 KB  |  290 lines
  1. @ECHO OFF
  2. dvansi
  3. TYPE OPEN.PCS
  4. PAUSE
  5. TYPE LSPEED.PCS
  6. PAUSE
  7. TYPE NEW.PCS
  8. PAUSE
  9. :MENU
  10. TYPE MENU.PCS
  11. ENPUT "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  12. IF ERRORLEVEL 255 GOTO ESC
  13. IF ERRORLEVEL 36 GOTO MENU              ; "Z"
  14. IF ERRORLEVEL 35 GOTO MENU              ; "Y"
  15. IF ERRORLEVEL 34 GOTO EXIT              ; "X"
  16. IF ERRORLEVEL 33 GOTO MENU              ; "W"
  17. IF ERRORLEVEL 32 GOTO VIEW              ; "V"
  18. IF ERRORLEVEL 31 GOTO LIST              ; "U"
  19. IF ERRORLEVEL 30 GOTO MENU              ; "T"
  20. IF ERRORLEVEL 29 GOTO SALE              ; "S"
  21. IF ERRORLEVEL 28 GOTO REF               ; "R"
  22. IF ERRORLEVEL 27 GOTO ESC               ; "Q"
  23. IF ERRORLEVEL 26 GOTO MENU              ; "P"
  24. IF ERRORLEVEL 25 GOTO MENU              ; "O"
  25. IF ERRORLEVEL 24 GOTO NEW               ; "N"
  26. IF ERRORLEVEL 23 GOTO MENU              ; "M"
  27. IF ERRORLEVEL 22 GOTO LSPEED            ; "L"
  28. IF ERRORLEVEL 21 GOTO MENU              ; "K"
  29. IF ERRORLEVEL 20 GOTO MENU              ; "J"
  30. IF ERRORLEVEL 19 GOTO INFO              ; "I"
  31. IF ERRORLEVEL 18 GOTO MENU              ; "H"
  32. IF ERRORLEVEL 17 GOTO MENU              ; "G"
  33. IF ERRORLEVEL 16 GOTO MENU              ; "F"
  34. IF ERRORLEVEL 15 GOTO MACH6             ; "E"
  35. IF ERRORLEVEL 14 GOTO MACH5             ; "D"
  36. IF ERRORLEVEL 13 GOTO MACH4             ; "C"
  37. IF ERRORLEVEL 12 GOTO MACH3             ; "B"
  38. IF ERRORLEVEL 11 GOTO MACH2             ; "A"
  39. IF ERRORLEVEL 10 GOTO TEN               ; "0"
  40. IF ERRORLEVEL 9 GOTO NINE
  41. IF ERRORLEVEL 8 GOTO EIGHT
  42. IF ERRORLEVEL 7 GOTO SEVEN
  43. IF ERRORLEVEL 6 GOTO SIX
  44. IF ERRORLEVEL 5 GOTO FIVE
  45. IF ERRORLEVEL 4 GOTO FOUR
  46. IF ERRORLEVEL 3 GOTO THREE
  47. IF ERRORLEVEL 2 GOTO TWO
  48. IF ERRORLEVEL 1 GOTO ONE
  49. GOTO MENU
  50. :ESC
  51. ECHO You pressed the ESC key
  52. GOTO EXIT
  53. :LIST
  54. TYPE PRICE.LST | MORE
  55. PAUSE
  56. GOTO MENU
  57. :NEW
  58. TYPE NEW.PCS
  59. PAUSE
  60. GOTO MENU
  61. :MACH6
  62. type MACH6.PCS
  63. ECHO (P)revious, (M)enu 
  64. enput "PM"
  65. IF ERRORLEVEL 2 GOTO MENU
  66. IF ERRORLEVEL 1 GOTO MACH5
  67. GOTO MACH6
  68. PAUSE
  69. GOTO MENU
  70. :ONE
  71. type cat1.pcs
  72. ECHO (N)ext, (M)enu 
  73. Enput "NM"
  74. IF ERRORLEVEL 2 GOTO MENU
  75. IF ERRORLEVEL 1 GOTO TWO
  76. GOTO ONE
  77. :TWO
  78. type cat2.pcs
  79. ECHO (N)ext, (P)revious, (M)enu 
  80. Enput "NPM"
  81. IF ERRORLEVEL 3 GOTO MENU
  82. IF ERRORLEVEL 2 GOTO ONE
  83. IF ERRORLEVEL 1 GOTO THREE
  84. GOTO TWO
  85. :THREE
  86. type cat3.pcs
  87. ECHO (N)ext, (P)revious, (M)enu 
  88. Enput "NPM"
  89. IF ERRORLEVEL 3 GOTO MENU
  90. IF ERRORLEVEL 2 GOTO TWO
  91. IF ERRORLEVEL 1 GOTO FOUR
  92. GOTO THREE
  93. :FOUR
  94. type cat4.pcs
  95. ECHO (N)ext, (P)revious, (M)enu 
  96. Enput "NPM"
  97. IF ERRORLEVEL 3 GOTO MENU
  98. IF ERRORLEVEL 2 GOTO THREE
  99. IF ERRORLEVEL 1 GOTO FIVE
  100. GOTO FOUR 
  101. ECHO You pressed the D key
  102. .User can run a program here
  103. GOTO STOP
  104. :FIVE
  105. type cat5.pcs
  106. ECHO (N)ext, (P)revious, (M)enu 
  107. enput "NPM"
  108. IF ERRORLEVEL 3 GOTO MENU
  109. IF ERRORLEVEL 2 GOTO FOUR
  110. IF ERRORLEVEL 1 GOTO SIX 
  111. GOTO FIVE 
  112. :SIX
  113. type cat6.pcs
  114. ECHO (N)ext, (P)revious, (M)enu 
  115. enput "NPM"
  116. IF ERRORLEVEL 3 GOTO MENU
  117. IF ERRORLEVEL 2 GOTO FIVE
  118. IF ERRORLEVEL 1 GOTO SEVEN
  119. GOTO SIX  
  120. :SEVEN
  121. type cat7.pcs
  122. ECHO (N)ext, (P)revious, (M)enu 
  123. enput "NPM"
  124. IF ERRORLEVEL 3 GOTO MENU
  125. IF ERRORLEVEL 2 GOTO SIX
  126. IF ERRORLEVEL 1 GOTO EIGHT
  127. GOTO SEVEN
  128. :EIGHT
  129. type cat8.pcs
  130. ECHO (N)ext, (P)revious, (M)enu 
  131. enput "NPM"
  132. IF ERRORLEVEL 3 GOTO MENU
  133. IF ERRORLEVEL 2 GOTO SEVEN
  134. IF ERRORLEVEL 1 GOTO NINE
  135. GOTO EIGHT
  136. :NINE
  137. type cat9.pcs
  138. ECHO (N)ext, (P)revious, (M)enu 
  139. enput "NPM"
  140. IF ERRORLEVEL 3 GOTO MENU
  141. IF ERRORLEVEL 2 GOTO EIGHT
  142. IF ERRORLEVEL 1 GOTO TEN 
  143. GOTO NINE 
  144. :TEN
  145. type cat10.pcs
  146. ECHO (P)revious, (M)enu 
  147. enput "PM"
  148. IF ERRORLEVEL 2 GOTO MENU
  149. IF ERRORLEVEL 1 GOTO NINE
  150. GOTO TEN
  151. :MACH2
  152. type MACH2.pcs
  153. ECHO (N)ext,(M)enu
  154. enput "NM"
  155. IF ERRORLEVEL 2 GOTO MENU
  156. IF ERRORLEVEL 1 GOTO MACH3
  157. GOTO MACH2
  158. :MACH3
  159. TYPE MACH3.PCS
  160. ECHO (N)ext, (P)revious, (M)enu
  161. enput "NPM"
  162. IF ERRORLEVEL 3 GOTO MENU
  163. IF ERRORLEVEL 2 GOTO MACH2
  164. IF ERRORLEVEL 1 GOTO MACH4
  165. GOTO MACH3
  166. :MACH4
  167. TYPE MACH4.PCS
  168. ECHO (N)ext, (P)revious, (M)enu
  169. enput "NPM"
  170. IF ERRORLEVEL 3 GOTO MENU
  171. IF ERRORLEVEL 2 GOTO MACH2
  172. IF ERRORLEVEL 1 GOTO MACH5
  173. GOTO MACH4
  174. :MACH5
  175. TYPE MACH5.PCS
  176. ECHO (N)ext, (P)revious, (M)enu
  177. enput "NPM"
  178. IF ERRORLEVEL 3 GOTO MENU
  179. IF ERRORLEVEL 2 GOTO MACH4
  180. IF ERRORLEVEL 1 GOTO MACH6
  181. GOTO MACH5
  182. :INFO
  183. TYPE PCS.PCS
  184. PAUSE
  185. GOTO MENU
  186. :LSPEED
  187. TYPE LSPEED.PCS
  188. PAUSE
  189. TYPE MACH2.PCS
  190. PAUSE
  191. TYPE MACH3.PCS
  192. PAUSE
  193. TYPE MACH4.PCS
  194. PAUSE
  195. TYPE MACH5.PCS
  196. PAUSE
  197. TYPE MACH6.PCS
  198. PAUSE
  199. GOTO MENU
  200. :SALE
  201. TYPE SALE.PCS
  202. PAUSE
  203. GOTO MENU
  204. :VIEW
  205. TYPE CAT1.PCS
  206. PAUSE
  207. TYPE CAT2.PCS
  208. PAUSE
  209. TYPE CAT3.PCS
  210. PAUSE
  211. TYPE CAT4.PCS
  212. PAUSE
  213. TYPE CAT5.PCS
  214. PAUSE
  215. TYPE CAT6.PCS
  216. PAUSE
  217. TYPE CAT7.PCS
  218. PAUSE
  219. TYPE CAT8.PCS
  220. PAUSE
  221. TYPE CAT9.PCS
  222. PAUSE
  223. TYPE CAT10.PCS
  224. PAUSE
  225. GOTO MENU
  226. :LOOP
  227. ECHO Oops...
  228. cls
  229. GOTO MENU
  230. :REF
  231. TYPE REFMENU.PCS
  232. ENPUT "ABCDEFR"
  233. IF ERRORLEVEL 255 GOTO MENU
  234. IF ERRORLEVEL 7 GOTO MENU
  235. IF ERRORLEVEL 6 GOTO FPAGE
  236. IF ERRORLEVEL 5 GOTO EPAGE
  237. IF ERRORLEVEL 4 GOTO DPAGE
  238. IF ERRORLEVEL 3 GOTO CPAGE
  239. IF ERRORLEVEL 2 GOTO BPAGE
  240. IF ERRORLEVEL 1 GOTO APAGE
  241. GOTO REF
  242. :APAGE
  243. TYPE AREF.PCS
  244. ENPUT "R"
  245. IF ERRORLEVEL 255 GOTO REF
  246. IF ERRORLEVEL 1 GOTO REF
  247. GOTO APAGE
  248. :BPAGE
  249. TYPE BREF.PCS
  250. ENPUT "R"
  251. IF ERRORLEVEL 255 GOTO REF
  252. IF ERRORLEVEL 1 GOTO REF
  253. GOTO BPAGE
  254. :CPAGE
  255. TYPE CREF.PCS
  256. ENPUT "R"
  257. IF ERRORLEVEL 255 GOTO REF
  258. IF ERRORLEVEL 1 GOTO REF
  259. GOTO CPAGE
  260. :DPAGE
  261. TYPE DREF.PCS
  262. ENPUT "R"
  263. IF ERRORLEVEL 255 GOTO REF
  264. IF ERRORLEVEL 1 GOTO REF
  265. GOTO DPAGE
  266. :EPAGE
  267. TYPE EREF.PCS
  268. ENPUT "R"
  269. IF ERRORLEVEL 255 GOTO REF
  270. IF ERRORLEVEL 1 GOTO REF
  271. GOTO EPAGE
  272. :FPAGE
  273. TYPE FREF.PCS
  274. ENPUT "R"
  275. IF ERRORLEVEL 255 GOTO REF
  276. IF ERRORLEVEL 1 GOTO REF
  277. GOTO FPAGE
  278. :NEWZ
  279. REV93
  280. GOTO MENU
  281. :EXIT
  282. type SALE.PCS
  283. pause
  284. cls
  285. ECHO I appreciate your business... And always will!    
  286. echo.
  287. echo.
  288. ECHO         ...call 664-0002 if I can ever help!    
  289. ECHO                                              /\/\ike
  290.